﻿''' <summary>
''' 
''' </summary>
''' <remarks></remarks>
''' <features></features>
''' <stepthrough></stepthrough>
Public Class Form1


    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="Package"></param>
    ''' <remarks></remarks>
    ''' <stepthrough>Enabled</stepthrough>
    <DebuggerStepThrough()>
    Sub New(ByVal Package As Microsoft.VisualStudio.Shell.Package)
        InitializeComponent()

        If Not DesignMode Then
            Mod_Utilities.Package = Package
            Mod_Utilities.ResultControl = Me.ResultControl1
        End If
    End Sub


    <DebuggerStepThrough()>
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Me.ResultControl1.Dock = Windows.Forms.DockStyle.Fill
        Me.ResultControl1.AfterSelect = New Action(Of Windows.Forms.TreeNode)(Sub(x As Windows.Forms.TreeNode) Me.PropertyGrid1.SelectedObject = x.Tag)

        If Not DesignMode Then
            If Mod_Utilities.DTE.Debugger.CurrentMode <> EnvDTE.dbgDebugMode.dbgBreakMode Then
                MsgBox("You must be in Debug Mode to use this", MsgBoxStyle.OkOnly And MsgBoxStyle.Information, "Not Possible")
                Me.Close()
            End If
        End If
    End Sub



End Class